home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / utils1 / 2m21src.zip / 2MFBMAKE.BAS < prev    next >
BASIC Source File  |  1994-05-31  |  430b  |  18 lines
  1. 100 '
  2. 110 ' Convertir 2MFBOOT.BIN a listado ensamblador con DefineByte
  3. 120 '
  4. 130 DEFINT I,J
  5. 140 OPEN "R",#1,"2mfboot.bin",1
  6. 150 OPEN "2mfboot.db" FOR OUTPUT AS #2
  7. 160 FIELD #1,1 AS A$
  8. 170 FOR I=0 TO 319
  9. 180   PRINT #2,"               DB    ";
  10. 190   FOR J=0 TO 7
  11. 200     GET #1
  12. 210     PRINT #2,USING"###";ASC(A$);
  13. 220     IF J<>7 THEN PRINT #2,", "; ELSE PRINT #2,
  14. 230   NEXT
  15. 240 NEXT
  16. 250 CLOSE #1, #2
  17. 260 SYSTEM
  18.